home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / XLISP 2.0 / XLISP Tools / Utility (UL) / STACK.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1988-04-07  |  514 b   |  19 lines  |  [TEXT/ttxt]
  1. ;; Larry Mulcahy 1988
  2. ;; stack
  3.  
  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  5. ; macro pop 
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8. (defmacro pop (stack)
  9.   `(let ((x (car ,stack)))
  10.         (setq ,stack (cdr ,stack))
  11.         x))
  12.  
  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14. ; macro push 
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16.  
  17. (defmacro push (thing stack)
  18.   `(setq ,stack (cons ,thing ,stack)))
  19.